home *** CD-ROM | disk | FTP | other *** search
- object ChartProperties: TChartProperties
- Left = 81
- Top = 114
- ActiveControl = Entrynumber
- BorderStyle = bsNone
- Caption = 'Chart Properties'
- ClientHeight = 328
- ClientWidth = 297
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- PixelsPerInch = 96
- Position = poScreenCenter
- OnClose = FormClose
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 297
- Height = 37
- Align = alTop
- TabOrder = 0
- object OKBtn: TBitBtn
- Left = 60
- Top = 6
- Width = 77
- Height = 27
- TabOrder = 0
- Kind = bkOK
- Margin = 2
- Spacing = -1
- IsControl = True
- end
- object CancelBtn: TBitBtn
- Left = 160
- Top = 6
- Width = 77
- Height = 27
- TabOrder = 1
- Kind = bkCancel
- Margin = 2
- Spacing = -1
- IsControl = True
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 37
- Width = 297
- Height = 291
- Align = alClient
- TabOrder = 1
- object Label1: TLabel
- Left = 2
- Top = 32
- Width = 114
- Height = 13
- Caption = 'Number of variables'
- end
- object Label2: TLabel
- Left = 15
- Top = 12
- Width = 101
- Height = 13
- Caption = 'Number of entries'
- end
- object Label3: TLabel
- Left = 49
- Top = 78
- Width = 67
- Height = 13
- Caption = 'Graph Type'
- end
- object Label4: TLabel
- Left = 164
- Top = 10
- Width = 45
- Height = 13
- Caption = 'Y-Steps'
- end
- object Label5: TLabel
- Left = 48
- Top = 100
- Width = 68
- Height = 13
- Caption = 'Point Marks'
- end
- object Label6: TLabel
- Left = 160
- Top = 32
- Width = 51
- Height = 13
- Caption = 'Pie Slice'
- end
- object VariableC: TRadioGroup
- Left = 12
- Top = 124
- Width = 273
- Height = 163
- Hint = 'Select Variable you wish to change'
- Caption = 'Variable Qualities'
- ItemIndex = 0
- Items.Strings = (
- '1'
- '2'
- '3'
- '4'
- '5'
- '6'
- '7'
- '8'
- '9'
- '10')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = VariableCClick
- end
- object Panel3: TPanel
- Left = 88
- Top = 160
- Width = 105
- Height = 57
- Hint = 'Select style for areas'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- object solid: TSpeedButton
- Left = 4
- Top = 4
- Width = 25
- Height = 25
- GroupIndex = 1
- Down = True
- Glyph.Data = {
- 98000000424D98000000000000003E0000002800000010000000100000000100
- 010000000000400000000000000000000000000000000000000000000000FFFF
- FF00000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000}
- OnClick = solidClick
- end
- object clear: TSpeedButton
- Left = 28
- Top = 4
- Width = 25
- Height = 25
- GroupIndex = 1
- Glyph.Data = {
- 98000000424D98000000000000003E0000002800000010000000100000000100
- 010000000000400000000000000000000000000000000000000000000000FFFF
- FF00000000007FFE00007FFE00007FFE00007FFE00007FFE00007FFE00007FFE
- 00007FFE00007FFE00007FFE00007FFE00007FFE00007FFE00007FFE00000000
- 00000000000000000000000000000000000000000000000000000000}
- OnClick = clearClick
- end
- object bdiagonal: TSpeedButton
- Left = 52
- Top = 4
- Width = 25
- Height = 25
- GroupIndex = 1
- Glyph.Data = {
- 98000000424D98000000000000003E0000002800000010000000100000000100
- 010000000000400000000000000000000000000000000000000000000000FFFF
- FF001C3000000E180000870C0000C3860000E1C3000070E10000387000001C38
- 00000E1C0000870E0000C3870000E1C3000070E10000387000001C3800001E3C
- 00000000000000000000000000000000000000000000000000000000}
- OnClick = bdiagonalClick
- end
- object fdiagonal: TSpeedButton
- Left = 76
- Top = 4
- Width = 25
- Height = 25
- GroupIndex = 1
- Glyph.Data = {
- 98000000424D98000000000000003E0000002800000010000000100000000100
- 010000000000400000000000000000000000000000000000000000000000FFFF
- FF008C3800001870000010E1000031C3000063870000C30C0000861800000C30
- 00001861000030C3000061870000C30C0000861800000C3000001861000038E3
- 00000000000000000000000000000000000000000000000000000000}
- OnClick = fdiagonalClick
- end
- object cross: TSpeedButton
- Left = 4
- Top = 28
- Width = 25
- Height = 25
- GroupIndex = 1
- Glyph.Data = {
- 98000000424D98000000000000003E0000002800000010000000100000000100
- 010000000000400000000000000000000000000000000000000000000000FFFF
- FF00CE7300000000000000000000CE730000CE7300000000000000000000CE73
- 0000CE7300000000000000000000CE730000CE7300000000000000000000CE73
- 00000000000000000000000000000000000000000000000000000000}
- OnClick = crossClick
- end
- object diagcross: TSpeedButton
- Left = 28
- Top = 28
- Width = 25
- Height = 25
- GroupIndex = 1
- Glyph.Data = {
- 98000000424D98000000000000003E0000002800000010000000100000000100
- 010000000000400000000000000000000000000000000000000000000000FFFF
- FF00101800000100000083810000C3C300008181000000000000181800003C3C
- 000038180000100000000181000083C30000838100000100000010180000383C
- 00000000000000000000000000000000000000000000000000000000}
- OnClick = diagcrossClick
- end
- object horizontal: TSpeedButton
- Left = 52
- Top = 28
- Width = 25
- Height = 25
- GroupIndex = 1
- Glyph.Data = {
- 98000000424D98000000000000003E0000002800000010000000100000000100
- 010000000000400000000000000000000000000000000000000000000000FFFF
- FF00FFFF00000000000000000000FFFF0000FFFF00000000000000000000FFFF
- 0000FFFF00000000000000000000FFFF0000FFFF000000000000000000007FFF
- 00000000000000000000000000000000000000000000000000000000}
- OnClick = horizontalClick
- end
- object vertical: TSpeedButton
- Left = 76
- Top = 28
- Width = 25
- Height = 25
- GroupIndex = 1
- Glyph.Data = {
- 98000000424D98000000000000003E0000002800000010000000100000000100
- 010000000000400000000000000000000000000000000000000000000000FFFF
- FF00333300003333000033330000333300003333000033330000333300003333
- 0000333300003333000033330000333300003333000033330000333300003333
- 00000000000000000000000000000000000000000000000000000000}
- OnClick = verticalClick
- end
- end
- object Varnumber: TMaskEdit
- Left = 128
- Top = 28
- Width = 17
- Height = 20
- Hint = 'Change number of variables'
- EditMask = '!9;0;0'
- MaxLength = 1
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- end
- object Entrynumber: TMaskEdit
- Left = 128
- Top = 6
- Width = 21
- Height = 20
- Hint = 'Change number of X-axis points'
- EditMask = '!99;0;0'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- end
- object Charttype: TComboBox
- Left = 128
- Top = 74
- Width = 125
- Height = 20
- Hint = 'Select Graph type'
- ItemHeight = 13
- Items.Strings = (
- 'None'
- 'Bar'
- 'Stacked Bar'
- 'Line'
- 'Area'
- 'Pie'
- '3D Area'
- '3D Bar'
- '3D Stacked Bar'
- '3D Line')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnChange = CharttypeChange
- end
- object Panel4: TPanel
- Left = 60
- Top = 252
- Width = 169
- Height = 31
- BevelInner = bvLowered
- TabOrder = 5
- object Image1: TImage
- Left = 2
- Top = 2
- Width = 165
- Height = 27
- Align = alClient
- end
- end
- object YStep: TMaskEdit
- Left = 216
- Top = 6
- Width = 61
- Height = 20
- EditMask = '!9999.999;1;0'
- MaxLength = 8
- TabOrder = 6
- Text = ' . '
- OnChange = YStepExit
- end
- object Panel5: TPanel
- Left = 88
- Top = 220
- Width = 109
- Height = 27
- Hint = 'Press button for pen style'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- object Solidp: TSpeedButton
- Left = 4
- Top = 2
- Width = 21
- Height = 23
- Hint = 'Solid Pen'
- GroupIndex = 1
- Down = True
- Glyph.Data = {
- 98000000424D98000000000000003E0000002800000010000000100000000100
- 010000000000400000000000000000000000000000000000000000000000FFFF
- FF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00000000
- 000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
- 00000000000000000000000000000000000000000000000000000000}
- OnClick = SolidpClick
- end
- object Dashp: TSpeedButton
- Left = 24
- Top = 2
- Width = 21
- Height = 23
- Hint = 'Solid Pen'
- GroupIndex = 1
- Glyph.Data = {
- 98000000424D98000000000000003E0000002800000010000000100000000100
- 010000000000400000000000000000000000000000000000000000000000FFFF
- FF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000080C0
- 000080C00000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
- 00000000000000000000000000000000000000000000000000000000}
- OnClick = DashpClick
- end
- object dotp: TSpeedButton
- Left = 44
- Top = 2
- Width = 21
- Height = 23
- Hint = 'Solid Pen'
- GroupIndex = 1
- Glyph.Data = {
- 98000000424D98000000000000003E0000002800000010000000100000000100
- 010000000000400000000000000000000000000000000000000000000000FFFF
- FF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00002492
- 000024920000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
- 00000000000000000000000000000000000000000000000000000000}
- OnClick = dotpClick
- end
- object dashdotp: TSpeedButton
- Left = 64
- Top = 2
- Width = 21
- Height = 23
- Hint = 'Solid Pen'
- GroupIndex = 1
- Glyph.Data = {
- 98000000424D98000000000000003E0000002800000010000000100000000100
- 010000000000400000000000000000000000000000000000000000000000FFFF
- FF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00000480
- 000004800000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
- 00000000000000000000000000000000000000000000000000000000}
- OnClick = dashdotpClick
- end
- object dashdotdotp: TSpeedButton
- Left = 84
- Top = 2
- Width = 21
- Height = 23
- Hint = 'Solid Pen'
- GroupIndex = 1
- Glyph.Data = {
- 98000000424D98000000000000003E0000002800000010000000100000000100
- 010000000000400000000000000000000000000000000000000000000000FFFF
- FF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00000490
- 000004900000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
- 00000000000000000000000000000000000000000000000000000000}
- OnClick = dashdotdotpClick
- end
- end
- object Pointmarks: TComboBox
- Left = 128
- Top = 100
- Width = 125
- Height = 20
- Hint = 'Type of marker for line graph.'
- ItemHeight = 13
- Items.Strings = (
- 'None'
- 'Circle'
- 'Square'
- 'Cross')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- OnChange = PointmarksChange
- end
- object Plus11: TCheckBox
- Left = 60
- Top = 138
- Width = 97
- Height = 17
- Hint = 'To allocate properties for variables greater than 10'
- Caption = '11+ Variables'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- OnClick = Plus11Click
- end
- object colorgrid1: Tcolourgrid
- Left = 232
- Top = 140
- Width = 40
- Height = 136
- Hint = 'Press left mouse button for pen colour, right for brush'
- GridOrdering = go2x10
- ParentShowHint = False
- ShowHint = True
- TabOrder = 10
- end
- object RadioButton1: TCheckBox
- Left = 16
- Top = 52
- Width = 125
- Height = 17
- Hint = 'Allow mutliple graph types'
- Alignment = taLeftJustify
- Caption = 'Multi Graph Type'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 11
- end
- object Pieslice: TMaskEdit
- Left = 216
- Top = 28
- Width = 21
- Height = 20
- Hint = 'Variable Number of Pie Slice'
- EditMask = '!99;1;_'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 12
- Text = ' '
- end
- end
- end
-